Dim Act :Set Act = CreateObject("Wscript.Shell")
Act.Run("D:\Jacky\iBoss2\iBoss2-1.1.20-ABCI\iBoss2Solution\iBoss2\bin\Debug\iBoss2.exe") ,1,ture 
  Do Until Success = True
    Success = Act.AppActivate("iBOSS Development ver.")
    Wscript.Sleep 200
   Loop
   Wscript.Sleep 200
   RunKey "^a"
   RunKey "jackylok"
   'RunKey "admin"
   RunKey "{TAB}"
   RunKey "123abc"
   RunKey "{TAB}"
   'RunKey "{ENTER}"
   
 Function RunKey(Key)
	Act.AppActivate("iBOSS Development ver.")
	Act.SendKeys Key ':WScript.Sleep 150
 End Function